home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / DHA demo / Don Norman Folder / The Library / The Library.rsrc / CSTR_5477_doNewNoteBookCSTR < prev    next >
Encoding:
Text File  |  1994-09-21  |  511 b   |  22 lines
  1. global gNBSN
  2. put tStr("LibMsg",47) into NotebookName
  3. if there is not a window NotebookName
  4. then
  5. lock screen
  6. lock messages
  7. set lockrecent to true
  8. push card
  9. if there is a file GetStackPath()&gNBSN
  10. then
  11. go stack GetStackPath()&gNBSN
  12. if not checked(NotebookName) then get Fit(NotebookName)
  13. send opennotebook to this card
  14. end if
  15. if there is a window NoteBookName then isEBW NoteBookName
  16. pop card
  17. unlock screen
  18. unlock messages
  19. else
  20. if checked(NotebookName) then get Fit(NotebookName)
  21. close window NotebookName
  22. end if